module Main
	where

import Control.Monad
import Data.List
import System.Random

randomSegment :: IO [Int]
randomSegment = do
		l <- replicateM 4 . replicateM 2 $ randomRIO (-10000, 10000)
		if length (nub l) < length l
			then randomSegment
			else return $ concat l

main = (mapM_ putStrLn =<< (replicateM 1000 $ fmap (intercalate " " . map show) randomSegment)) >> putStrLn "0 0 0 0 0 0 0 0"
